home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_020_19xx_-_de_Side_B.d64 / data maker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  998b  |  21 lines
  1. 1 poke788,52:poke792,226:poke793,252:data 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f
  2. 2 sys65409:poke53280,6:printspc(15)"data maker"spc(64)"[159]1991 by j.zimmermann"
  3. 3 poke19,1:input"[154]command:[153]";c$:print:input"[154]from   :[153]";an:print
  4. 4 input"[154]to     :[153]";en:print:input"[154]1. line:[153]";zn:print:input"[154]steps  :[153]";s
  5. 5 print:input"[154]0hx/1dc:[153]";f:print:input"[154]insert :[153]";in:poke19,0:ifs<1thenrun
  6. 6 poke832,peek(45)-2:poke833,peek(46):onabs((en<an)+(zn<500)+(zn>63999))goto2
  7. 7 dimb$(15):restore:fori=0to15:readb$(i):next
  8. 8 print"[144][147]":z$=str$(zn):printright$(z$,len(z$)-1);:gosub19:printc$;" ";
  9. 9 w0=peek(an)/16:hi=int(w0):lo=(w0-hi)*16:ww$=str$(peek(an))
  10. 10 w$=right$(ww$,len(ww$)-1):onfgoto11:w$="$"+b$(hi)+b$(lo)
  11. 11 printw$",";:an=an+1:onabs(an=(en+1))goto14:onabs(peek(1219)=32)goto9
  12. 12 print"[157] ":print"an="an"[157]:en="en"[157]:zn="zn+s"[157]:c$="chr$(34)c$chr$(34);
  13. 13 print":s="s"[157]:f="f"[157]:goto7":print"":poke631,13:poke632,13:poke198,2:end
  14. 14 print"[157] ":print"goto15":print"":poke631,13:poke632,13:poke198,2:end
  15. 15 poke43,peek(832):poke44,peek(833):clr:poke19,1:input"[154][147]filename:[153]";f$
  16. 16 poke19,0:print"[150]":f$="@:"+f$:savef$,8,1:poke43,1:poke44,8:clr
  17. 17 a=peek(832)+peek(833)*256:fori=atoa+2:pokei,0:next:poke45,peek(832)+2
  18. 18 poke46,peek(833):clr:run
  19. 19 onabs((in=0)+(in>10))goto20:print":";:fori=1toin:print" ";:next
  20. 20 return
  21.